Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/Macintosh Graphics Primer/Macintosh Graphics Primer/card_29356.txt

Text File | 1990-12-05 | 8.3 KB | 403 lines

-- card: 29356 from stack: in
-- bmap block id: 41746
-- flags: 0000
-- background id: 49679
-- name: content 7
----- HyperTalk script -----
on openCard
  global mapLoc, cardLoc
  set hilite of bg btn "content 8" to true
  if cardloc < 11 then
    if maploc = "glossary" then
      set hilite of cd btn ("glossary" && cardLoc) to true
    end if
  end if
end opencard

on closeCard
  global mapLoc, cardLoc
  set hilite of bg btn "content 8" to false
  if maploc = "glossary" then
    if cardloc < 11 then
      set hilite of cd btn ("glossary" && cardLoc) to false
    end if
  end if
end closeCard



-- part 1 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=156 top=136 right=255 bottom=231
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=143 right=156 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 0
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 0"
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=159 right=172 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 1
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 1"
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=175 right=188 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 2
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 2"
end mouseUp




-- part 6 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=191 right=204 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 3
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 4"
end mouseUp




-- part 7 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=207 right=220 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 4
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 6"
end mouseUp




-- part 8 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=223 right=236 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 5
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 7"
end mouseUp




-- part 9 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=260 right=273 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 6
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 9"
end mouseUp




-- part 10 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=308 top=167 right=180 bottom=331
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 7
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 3"
end mouseUp




-- part 11 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=309 top=200 right=213 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 8
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 5"
end mouseUp




-- part 30 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=138 top=239 right=252 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: glossary 10
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go card "compete 8"
end mouseUp




-- part 31 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=327 top=160 right=183 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name:


-- part 32 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=328 top=193 right=216 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name:


-- part 33 (field)
-- low flags: 00
-- high flags: 2000
-- rect: left=155 top=253 right=276 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name:


-- part 34 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=392 top=320 right=338 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 1500 / 1500
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start-Up
----- HyperTalk script -----
on mouseDown
  global NAV_PATH, SYS_PATH, GTRACKINGDISABLED

  put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn

  -- simulate hiliting of two small buttons
  repeat until the mouse is up
    ---find out WHERE on the icon you clicked
    put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
    if the mouseLoc is within the rect of the target then
      if whereInBtn < 0 then
        set icon of me to 1501
      else
        set icon of me to 1502
      end if
    else   -- outside of the button, reset default icon
      set icon of me to 1500
    end if
  end repeat
  set icon of me to 1500
  if the mouseloc is not within the rect of me then exit mouseDown

  if whereInBtn < 0 then
    --- the click was on the left so go to send feedback if it exists
    if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
      answer "“CD Preferences” has not been installed." with "OK"
      exit mouseDown
    end if
    --
    if (GTRACKINGDISABLED = "Disabled") then
      answer "The feedback mechanism has been disabled." with "OK"
      exit mouseDown
    end if
    --
    push card
    put SYS_PATH & "CD Preferences" into feedPath
    set cursor to watch
    visual effect dissolve fast
    go stack feedPath
  else if whereInBtn > 0 then
    -- if the click was on the right then go back to navigation stack
    visual effect iris close to black
    visual effect iris open
    if NAV_PATH = empty then put "cd welcome of stack" && "the “Navigation Stack”" into NAV_PATH
    -- make a prompt for "where is" if the global is empty
    go NAV_PATH
  end if
end mouseDown

on mouseUp
  -- kill any mouseups
end mouseUp



-- part contents for background part 1
----- text -----
Macintosh Graphics Primer

-- part contents for background part 2
----- text -----
Card-by-Card Stack Contents

-- part contents for background part 8
----- text -----
content8

-- part contents for background part 11
----- text -----
Click any card to go there, a highlighted card indicates where you just came from.

-- part contents for background part 12
----- text -----
Competition

-- part contents for card part 1
----- text -----
Opening
Introduction
VGA
Super VGA
IBM 8514/A
TI 34010
NeXT

-- part contents for card part 33
----- text -----
Summary

-- part contents for card part 31
----- text -----
VGA (cont.)

-- part contents for card part 32
----- text -----
Super VGA (cont.)